home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 25 / AMIGAplus Sonderheft 25 (2000)(Falke)(DE)(Track 1 of 4)[!].iso / Magazin / Future-PD / Scripts / S5_Harman_Computer.script < prev    next >
Text File  |  1998-05-18  |  2KB  |  80 lines
  1. SET @SECOFF 0|
  2. SET @GOTDATA 0|
  3. IDLE|
  4. :ZONELABEL7|
  5. IF @GOTDATA = 1 NEXTLEVEL|
  6. [ "Harman: I'd better get the information"|
  7. [ "from the archive's computers."|
  8. IDLE|
  9. :NEXTLEVEL|
  10. LOADLEVEL LEVEL47.LEVEL 323 133|
  11. :ZONELABEL1|
  12. GLOGET 9 @COMP|
  13. IF @COMP END|
  14. IF @SECOFF SECOFF|
  15. [ "Harman: This is the main archive computer,"|
  16. [ "but I'd better shut off the security"|
  17. [ "system before I try anything."|
  18. IDLE|
  19. :SECOFF|
  20. [ "Harman: Now, I'll just plug the palmtop"|
  21. [ "into here..."|
  22. LOCKCONTROLS|
  23. SET @GOTDATA 1|
  24. PAUSE 2|
  25. SOUND "Sounds/ComputerWorking.iff" 8287 %0101|
  26. [ "** GATHERING DATA **"|
  27. PAUSE 2|
  28. SOUND "Sounds/ComputerWorking.iff" 8287 %0101|
  29. [ "** GATHERING DATA **"|
  30. PAUSE 2|
  31. SOUND "Sounds/ComputerWorking.iff" 8287 %0101|
  32. [ "** MEMORY BANKS FULL **"|
  33. FACE S|
  34. [ "Harman: That's all I can get.  It should"|
  35. [ "be enough."|
  36. LOCKCONTROLS|
  37. WALKTO 336 257 4|
  38. FACE E|
  39. [ "Harman: The only problem is I can't"|
  40. [ "get back up that vent."|
  41. WALKTO 254 126 4|
  42. FACE N|
  43. [ "Harman: Guess I'll just have to go"|
  44. [ "through the front door."|
  45. UNLOCKCONTROLS|
  46. :END|
  47. IDLE|
  48. :ZONELABEL2|
  49. GLOGET 9 @COMP|
  50. IF @COMP END|
  51. IF @SECOFF END|
  52. [ "Harman: This computer will let me"|
  53. [ "shut off security.  Give me a minute..."|
  54. FACE N|
  55. COORDS 0 @X @Y|
  56. SET @I 0|
  57. SOUND "Sounds/ComputerWorking.iff" 8287 %0101|
  58. :LOOP|
  59. COORDS 0 @AX @AY|
  60. IF @AX <> @X MOVED|
  61. IF @AY <> @Y MOVED|
  62. MATH @I + 1|
  63. IF @I = 25 SECDOWN|
  64. GOTO LOOP|
  65. :MOVED|
  66. [ "Harman: Give me a minute!"|
  67. LOCKCONTROLS|
  68. MOVETO @X @Y|
  69. FACE N|
  70. UNLOCKCONTROLS|
  71. GLOSET 10 -1|
  72. GOTO LOOP|
  73. :SECDOWN|
  74. SET @SECOFF -1|
  75. SOUND "Sounds/ComputerWorking.iff" 8287 %0101|
  76. [ "Harman: There.  I deactivated the"|
  77. [ "security systems.  Now, onto that"|
  78. [ "other mainframe..."|
  79. IDLE|
  80.